/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / macrofun.fw

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 03 00 08 04 00 ff ed fb | 00 00 00 00 42 00 00 00 |........|....B...|
|00000010| 79 42 49 02 2f 00 52 00 | 32 00 00 00 00 00 00 00 |yBI./.R.|2.......|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 03 00 96 03 08 0a 00 00 | 00 00 00 00 02 00 00 00 |........|........|
|00000040| c2 00 c3 00 37 00 00 00 | 03 00 38 00 09 00 01 00 |....7...|..8.....|
|00000050| 02 00 01 00 0d 01 23 00 | 0d 00 0d 00 0d 00 00 00 |......#.|........|
|00000060| 04 00 98 03 02 ff 45 20 | 01 00 01 00 4e 00 13 00 |......E |....N...|
|00000070| 01 00 02 00 4e 00 14 00 | 00 00 01 00 4f 00 15 00 |....N...|....O...|
|00000080| 00 00 01 00 12 00 02 00 | 01 00 02 00 07 00 00 00 |........|........|
|00000090| 00 00 00 00 01 00 01 00 | 41 08 00 00 00 00 00 00 |........|A.......|
|000000a0| 02 00 9a 03 18 82 00 00 | 00 01 00 00 02 00 08 00 |........|........|
|000000b0| 6d 61 63 72 6f 66 75 6e | 00 ff ff ff ff ff ff ff |macrofun|........|
|000000c0| 1a 00 9c 03 18 82 00 00 | 00 01 00 00 02 00 78 01 |........|......x.|
|000000d0| 3b 4d 61 63 72 6f 73 20 | 66 6f 72 20 70 65 72 73 |;Macros |for pers|
|000000e0| 6f 6e 61 6c 20 75 73 65 | ff 01 00 ff 40 68 69 64 |onal use|....@hid|
|000000f0| 65 28 6d 61 63 72 6f 66 | 75 6e 29 2c ff 01 00 ff |e(macrof|un),....|
|00000100| 40 73 65 74 6d 61 63 72 | 6f 28 7b 61 6c 74 2d 58 |@setmacr|o({alt-X|
|00000110| 7d 2c 4d 61 63 72 6f 66 | 75 6e 2e 4d 61 63 72 6f |},Macrof|un.Macro|
|00000120| 73 2e 58 29 2c ff 01 00 | ff 40 73 65 74 6d 61 63 |s.X),...|.@setmac|
|00000130| 72 6f 28 7b 61 6c 74 2d | 4b 7d 2c 4d 61 63 72 6f |ro({alt-|K},Macro|
|00000140| 66 75 6e 2e 4d 61 63 72 | 6f 73 2e 4b 29 2c ff 01 |fun.Macr|os.K),..|
|00000150| 00 ff 40 73 65 74 6d 61 | 63 72 6f 28 7b 61 6c 74 |..@setma|cro({alt|
|00000160| 2d 44 7d 2c 4d 61 63 72 | 6f 66 75 6e 2e 4d 61 63 |-D},Macr|ofun.Mac|
|00000170| 72 6f 73 2e 44 29 2c ff | 01 00 ff 40 73 65 74 6d |ros.D),.|...@setm|
|00000180| 61 63 72 6f 28 7b 61 6c | 74 2d 57 7d 2c 4d 61 63 |acro({al|t-W},Mac|
|00000190| 72 6f 66 75 6e 2e 4d 61 | 63 72 6f 73 2e 57 2e 77 |rofun.Ma|cros.W.w|
|000001a0| 72 69 74 65 29 2c ff 01 | 00 ff 40 73 65 74 6d 61 |rite),..|..@setma|
|000001b0| 63 72 6f 28 7b 61 6c 74 | 2d 43 7d 2c 4d 61 63 72 |cro({alt|-C},Macr|
|000001c0| 6f 66 75 6e 2e 4d 61 63 | 72 6f 73 2e 43 29 2c ff |ofun.Mac|ros.C),.|
|000001d0| 01 00 ff 40 73 65 74 6d | 61 63 72 6f 28 7b 61 6c |...@setm|acro({al|
|000001e0| 74 2d 50 7d 2c 4d 61 63 | 72 6f 66 75 6e 2e 4d 61 |t-P},Mac|rofun.Ma|
|000001f0| 63 72 6f 73 2e 50 29 2c | ff 01 00 ff 40 73 65 74 |cros.P),|....@set|
|00000200| 6d 61 63 72 6f 28 7b 61 | 6c 74 2d 48 7d 2c 4d 61 |macro({a|lt-H},Ma|
|00000210| 63 72 6f 66 75 6e 2e 4d | 61 63 72 6f 73 2e 48 65 |crofun.M|acros.He|
|00000220| 6c 70 29 2c ff 01 00 ff | 40 70 65 72 66 6f 72 6d |lp),....|@perform|
|00000230| 6b 65 79 73 28 22 7b 63 | 74 72 6c 2d 64 7d 67 64 |keys("{c|trl-d}gd|
|00000240| 3a 6d 65 6d 6f 72 79 2e | 66 77 7b 72 65 74 75 72 |:memory.|fw{retur|
|00000250| 6e 7d 7b 46 35 7d 22 29 | ff 01 00 ff 00 ff ff ff |n}{F5}")|........|
|00000260| 04 00 9e 03 08 0a 00 00 | 00 00 00 00 02 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 27 00 96 03 00 00 04 00 |........|'.......|
|00000280| 05 00 08 00 0d 01 2d 00 | 41 00 50 00 5e 00 76 00 |......-.|A.P.^.v.|
|00000290| f8 00 41 01 4f 01 0d 00 | 0d 00 00 00 00 00 00 00 |..A.O...|........|
|000002a0| 04 00 a0 03 02 ff 47 20 | 01 00 01 00 44 00 09 00 |......G |....D...|
|000002b0| 02 00 03 00 45 00 0b 00 | 01 00 02 00 4e 00 14 00 |....E...|....N...|
|000002c0| 01 00 02 00 46 00 0c 00 | 02 00 03 00 2b 00 00 00 |....F...|....+...|
|000002d0| 00 00 00 00 04 00 04 00 | 41 08 00 00 00 00 22 02 |........|A.....".|
|000002e0| 02 00 a2 03 18 82 00 00 | 00 01 00 00 02 00 06 00 |........|........|
|000002f0| 4d 61 63 72 6f 73 00 ff | ff ff ff ff ff ff ff ff |Macros..|........|
|00000300| 03 00 a4 03 18 80 00 00 | 00 03 00 00 02 00 00 00 |........|........|
|00000310| 01 00 06 00 e6 2d d8 02 | 30 00 9e 03 36 00 01 00 |.....-..|0...6...|
|00000320| 06 00 05 00 0d 03 5c 43 | 4f 4d 4d 00 ff ff ff ff |......\C|OMM.....|
|00000330| 04 00 a6 03 02 00 47 20 | 01 00 01 00 42 00 07 00 |......G |....B...|
|00000340| 03 00 04 00 44 00 0a 00 | 02 00 03 00 45 00 0b 00 |....D...|....E...|
|00000350| 02 00 03 00 45 00 0b 00 | 03 00 04 00 34 00 00 00 |....E...|....4...|
|00000360| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 41 f8 00 |........|A....A..|
|00000370| 02 00 a8 03 18 82 00 00 | 00 01 00 00 02 00 01 00 |........|........|
|00000380| 58 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |X.......|........|
|00000390| 0b 00 aa 03 18 82 00 00 | 00 01 00 00 02 00 87 00 |........|........|
|000003a0| 3b 58 74 61 6c 6b 20 43 | 6f 6d 6d 75 6e 69 63 61 |;Xtalk C|ommunica|
|000003b0| 74 69 6f 6e 73 ff 01 00 | ff 40 6c 6f 63 61 6c 28 |tions...|.@local(|
|000003c0| 78 74 61 6c 6b 29 2c ff | 01 00 ff 40 73 65 74 64 |xtalk),.|...@setd|
|000003d0| 72 69 76 65 28 22 43 3a | 22 29 2c ff 01 00 ff 40 |rive("C:|"),....@|
|000003e0| 73 65 74 64 69 72 65 63 | 74 6f 72 79 28 22 43 3a |setdirec|tory("C:|
|000003f0| 5c 43 6f 6d 6d 22 29 2c | ff 01 00 ff 40 72 75 6e |\Comm"),|....@run|
|00000400| 28 78 74 61 6c 6b 2c 22 | 58 74 61 6c 6b 2e 65 78 |(xtalk,"|Xtalk.ex|
|00000410| 65 22 29 2c ff 01 00 ff | 40 73 65 74 64 69 72 65 |e"),....|@setdire|
|00000420| 63 74 6f 72 79 28 22 63 | 3a 5c 66 72 61 6d 65 22 |ctory("c|:\frame"|
|00000430| 29 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |).......|........|
|00000440| 03 00 ac 03 18 80 00 00 | 00 01 00 00 02 01 0a 00 |........|........|
|00000450| ca 00 00 00 ae ca b4 31 | 44 00 9e 03 4a 00 01 00 |.......1|D...J...|
|00000460| 06 00 05 00 0d 01 23 54 | 52 55 45 00 ff ff ff ff |......#T|RUE.....|
|00000470| 04 00 ae 03 02 00 47 20 | 01 00 01 00 42 00 07 00 |......G |....B...|
|00000480| 03 00 04 00 44 00 0a 00 | 02 00 03 00 45 00 0b 00 |....D...|....E...|
|00000490| 02 00 03 00 45 00 0b 00 | 03 00 04 00 48 00 00 00 |....E...|....H...|
|000004a0| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 41 62 01 |........|A....Ab.|
|000004b0| 02 00 b0 03 18 82 00 00 | 00 01 00 00 02 00 01 00 |........|........|
|000004c0| 4b 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |K.......|........|
|000004d0| 06 00 b2 03 18 82 00 00 | 00 01 00 00 02 00 3f 00 |........|......?.|
|000004e0| 3b 6b 69 6c 6c 20 74 6f | 20 65 6e 64 20 6f 66 20 |;kill to| end of |
|000004f0| 6c 69 6e 65 ff 01 00 ff | 40 70 65 72 66 6f 72 6d |line....|@perform|
|00000500| 6b 65 79 73 28 22 7b 46 | 36 7d 7b 65 6e 64 7d 7b |keys("{F|6}{end}{|
|00000510| 6c 65 66 74 61 72 72 6f | 77 7d 7b 64 65 6c 7d 22 |leftarro|w}{del}"|
|00000520| 29 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |).......|........|
|00000530| 03 00 b4 03 18 80 00 00 | 00 01 00 00 02 01 0a 00 |........|........|
|00000540| 58 86 6b fb 1c 00 4d 00 | 53 00 9e 03 59 00 01 00 |X.k...M.|S...Y...|
|00000550| 06 00 05 00 0d 01 23 54 | 52 55 45 00 ff ff ff ff |......#T|RUE.....|
|00000560| 04 00 b6 03 02 00 47 20 | 01 00 01 00 42 00 07 00 |......G |....B...|
|00000570| 03 00 04 00 44 00 0a 00 | 02 00 03 00 45 00 0b 00 |....D...|....E...|
|00000580| 02 00 03 00 45 00 0b 00 | 03 00 04 00 57 00 00 00 |....E...|....W...|
|00000590| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 41 00 00 |........|A....A..|
|000005a0| 02 00 b8 03 18 82 00 00 | 00 01 00 00 02 00 01 00 |........|........|
|000005b0| 44 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |D.......|........|
|000005c0| 05 00 ba 03 18 82 00 00 | 00 01 00 00 02 00 34 00 |........|......4.|
|000005d0| 3b 64 65 6c 65 74 65 20 | 61 20 6c 69 6e 65 ff 01 |;delete |a line..|
|000005e0| 00 ff 40 70 65 72 66 6f | 72 6d 6b 65 79 73 28 22 |..@perfo|rmkeys("|
|000005f0| 7b 68 6f 6d 65 7d 7b 46 | 36 7d 7b 65 6e 64 7d 7b |{home}{F|6}{end}{|
|00000600| 64 65 6c 7d 22 29 00 ff | ff ff ff ff ff ff ff ff |del}")..|........|
|00000610| 0f 00 bc 03 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 6d 00 9e 03 73 00 7a 00 |........|m...s.z.|
|00000630| 9d 00 b7 00 0d 01 41 6c | 74 20 2d 20 63 20 20 63 |......Al|t - c  c|
|00000640| 75 74 20 74 68 65 20 66 | 6f 72 6d 75 6c 61 ff 01 |ut the f|ormula..|
|00000650| 00 41 41 6c 74 20 2d 20 | 64 20 20 64 65 6c 65 74 |.AAlt - |d  delet|
|00000660| 65 20 74 68 65 20 6c 69 | 6e 65 ff 01 00 41 41 6c |e the li|ne...AAl|
|00000670| 74 20 2d 20 6b 20 20 6b | 69 6c 6c 20 74 68 65 20 |t - k  k|ill the |
|00000680| 72 65 6d 61 69 6e 64 65 | 72 20 6f 66 20 74 68 65 |remainde|r of the|
|00000690| 20 6c 69 6e 65 ff 01 00 | 41 41 6c 74 20 2d 20 70 | line...|AAlt - p|
|000006a0| 20 20 70 61 73 74 65 20 | 74 68 65 20 66 6f 72 6d |  paste |the form|
|000006b0| 75 6c 61 ff 01 00 41 41 | 6c 74 20 2d 20 77 20 20 |ula...AA|lt - w  |
|000006c0| 77 72 69 74 65 20 61 20 | 74 65 78 74 20 66 69 6c |write a |text fil|
|000006d0| 65 20 28 2e 70 72 67 29 | ff 01 00 41 41 6c 74 20 |e (.prg)|...AAlt |
|000006e0| 2d 20 78 20 20 61 63 63 | 65 73 73 20 43 72 6f 73 |- x  acc|ess Cros|
|000006f0| 73 74 61 6c 6b ff 01 00 | 41 00 ff ff ff ff ff ff |stalk...|A.......|
|00000700| 04 00 be 03 02 00 47 20 | 01 00 01 00 28 00 07 00 |......G |....(...|
|00000710| 03 00 04 00 2a 00 0a 00 | 02 00 03 00 45 00 0b 00 |....*...|....E...|
|00000720| 02 00 03 00 2b 00 0b 00 | 03 00 04 00 71 00 00 00 |....+...|....q...|
|00000730| 00 00 04 00 00 00 00 00 | 41 08 00 00 00 41 00 00 |........|A....A..|
|00000740| 02 00 c0 03 18 82 00 00 | 00 01 00 00 02 00 04 00 |........|........|
|00000750| 48 65 6c 70 00 ff ff ff | ff ff ff ff ff ff ff ff |Help....|........|
|00000760| 03 00 c2 03 18 82 00 00 | 00 01 00 00 02 00 1e 00 |........|........|
|00000770| 40 64 69 73 70 6c 61 79 | 28 4d 61 63 72 6f 66 75 |@display|(Macrofu|
|00000780| 6e 2e 4d 61 63 72 6f 73 | 2e 48 65 6c 70 29 00 ff |n.Macros|.Help)..|
|00000790| 03 00 c4 03 08 0a 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 79 00 9e 03 7f 00 03 00 |........|y.......|
|000007b0| 04 00 03 00 0d 01 82 00 | e4 00 ed 00 0d 00 0d 00 |........|........|
|000007c0| 04 00 c6 03 02 00 07 20 | 01 00 05 00 44 00 1f 00 |....... |....D...|
|000007d0| 03 00 08 00 45 00 0b 00 | 02 00 03 00 45 00 0b 00 |....E...|....E...|
|000007e0| 02 00 07 00 47 00 23 00 | 03 00 08 00 7d 00 00 00 |....G.#.|....}...|
|000007f0| 00 00 00 00 01 00 02 00 | 41 08 00 00 00 41 00 00 |........|A....A..|
|00000800| 02 00 c8 03 18 82 00 00 | 00 01 00 00 02 00 01 00 |........|........|
|00000810| 57 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |W.......|........|
|00000820| 03 00 ca 03 18 82 00 00 | 00 01 00 00 02 00 12 00 |........|........|
|00000830| 3b 77 72 69 74 65 20 61 | 20 74 65 78 74 20 66 69 |;write a| text fi|
|00000840| 6c 65 00 ff ff ff ff ff | ff ff ff ff ff ff ff ff |le......|........|
|00000850| 03 00 cc 03 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00000860| 32 01 38 01 8d 00 00 00 | 85 00 c4 03 8b 00 01 00 |2.8.....|........|
|00000870| 02 00 05 00 0d 01 23 4e | 2f 41 21 00 ff ff ff ff |......#N|/A!.....|
|00000880| 04 00 ce 03 02 00 07 20 | 01 00 01 00 42 00 19 00 |....... |....B...|
|00000890| 04 00 09 00 45 00 0b 00 | 03 00 08 00 45 00 0b 00 |....E...|....E...|
|000008a0| 03 00 08 00 46 00 22 00 | 04 00 09 00 89 00 00 00 |....F.".|........|
|000008b0| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 41 aa 03 |........|A....A..|
|000008c0| 02 00 d0 03 18 82 00 00 | 00 01 00 00 02 00 05 00 |........|........|
|000008d0| 77 72 69 74 65 00 ff ff | ff ff ff ff ff ff ff ff |write...|........|
|000008e0| 59 00 d2 03 18 82 00 00 | 00 01 00 00 02 00 3e 05 |Y.......|......>.|
|000008f0| 40 6c 6f 63 61 6c 28 76 | 61 72 72 65 66 2c 20 66 |@local(v|arref, f|
|00000900| 69 6c 6e 61 6d 65 2c 20 | 64 65 66 61 75 6c 74 29 |ilname, |default)|
|00000910| 2c ff 01 00 ff 64 65 66 | 61 75 6c 74 20 3a 3d 20 |,....def|ault := |
|00000920| 40 73 65 74 64 72 69 76 | 65 20 26 20 40 73 65 74 |@setdriv|e & @set|
|00000930| 64 69 72 65 63 74 6f 72 | 79 20 26 20 22 5c 22 2c |director|y & "\",|
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000950| 20 20 20 20 3b 64 65 66 | 61 75 6c 74 20 70 61 74 |    ;def|ault pat|
|00000960| 68 ff 01 00 ff ff 01 00 | ff 6c 6f 63 20 3a 3d 20 |h.......|.loc := |
|00000970| 40 73 65 74 73 65 6c 65 | 63 74 69 6f 6e 2c 20 20 |@setsele|ction,  |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009a0| 20 20 20 20 20 20 20 20 | 3b 67 65 74 20 63 75 72 |        |;get cur|
|000009b0| 72 65 6e 74 ff 01 00 ff | 20 20 20 20 20 20 20 20 |rent....|        |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009f0| 20 20 20 20 20 20 20 3b | 20 20 6c 6f 63 61 74 69 |       ;|  locati|
|00000a00| 6f 6e 2e ff 01 00 ff 40 | 65 72 61 73 65 70 72 6f |on.....@|erasepro|
|00000a10| 6d 70 74 2c ff 01 00 ff | 40 70 72 6f 6d 70 74 28 |mpt,....|@prompt(|
|00000a20| 22 49 73 20 74 68 65 20 | 63 75 72 73 6f 72 20 6f |"Is the |cursor o|
|00000a30| 6e 20 74 68 65 20 74 65 | 78 74 20 74 6f 20 62 65 |n the te|xt to be|
|00000a40| 20 63 68 65 63 6b 65 64 | 3f 22 20 26 20 20 20 20 | checked|?" &    |
|00000a50| 20 20 20 20 20 20 20 3b | 76 65 72 69 66 79 20 63 |       ;|verify c|
|00000a60| 75 72 73 6f 72 ff 01 00 | ff 20 20 20 20 20 20 20 |ursor...|.       |
|00000a70| 20 22 20 28 59 29 65 73 | 20 2d 20 41 6e 79 20 6f | " (Y)es| - Any o|
|00000a80| 74 68 65 72 20 6b 65 79 | 20 61 62 6f 72 74 73 22 |ther key| aborts"|
|00000a90| 2c 35 29 2c 20 20 20 20 | 20 20 20 20 20 20 20 20 |,5),    |        |
|00000aa0| 20 20 20 20 20 20 20 20 | 3b 20 20 6c 6f 63 61 74 |        |;  locat|
|00000ab0| 69 6f 6e 2e ff 01 00 ff | 40 69 66 28 40 6f 72 28 |ion.....|@if(@or(|
|00000ac0| 40 6e 65 78 74 6b 65 79 | 3d 7b 79 7d 2c 40 6b 65 |@nextkey|={y},@ke|
|00000ad0| 79 3d 7b 59 7d 29 2c ff | 01 00 ff 20 20 20 20 40 |y={Y}),.|...    @|
|00000ae0| 65 72 61 73 65 70 72 6f | 6d 70 74 2c ff 01 00 ff |erasepro|mpt,....|
|00000af0| 20 20 20 20 40 6c 69 73 | 74 28 40 65 72 61 73 65 |    @lis|t(@erase|
|00000b00| 70 72 6f 6d 70 74 2c ff | 01 00 ff 20 20 20 20 20 |prompt,.|...     |
|00000b10| 20 20 20 20 20 40 70 72 | 6f 6d 70 74 28 22 50 6c |     @pr|ompt("Pl|
|00000b20| 61 63 65 20 63 75 72 73 | 6f 72 20 6f 6e 20 63 6f |ace curs|or on co|
|00000b30| 72 72 65 63 74 20 74 65 | 78 74 20 61 6e 64 20 72 |rrect te|xt and r|
|00000b40| 65 74 72 79 22 2c 32 34 | 29 2c ff 01 00 ff 20 20 |etry",24|),....  |
|00000b50| 20 20 20 20 20 20 20 20 | 40 72 65 74 75 72 6e 28 |        |@return(|
|00000b60| 22 50 6c 61 63 65 20 63 | 75 72 73 6f 72 20 6f 6e |"Place c|ursor on|
|00000b70| 20 63 6f 72 72 65 63 74 | 20 74 65 78 74 20 61 6e | correct| text an|
|00000b80| 64 20 72 65 74 72 79 22 | 29 ff 01 00 ff 20 20 20 |d retry"|)....   |
|00000b90| 20 20 20 20 20 20 29 ff | 01 00 ff 20 20 20 29 2c |      ).|...   ),|
|00000ba0| ff 01 00 ff 62 75 66 66 | 65 72 20 3a 3d 20 40 74 |....buff|er := @t|
|00000bb0| 65 78 74 73 65 6c 65 63 | 74 69 6f 6e 2c ff 01 00 |extselec|tion,...|
|00000bc0| ff ff 01 00 ff 66 69 6c | 6e 61 6d 65 20 3a 3d 20 |.....fil|name := |
|00000bd0| 40 69 6e 70 75 74 6c 69 | 6e 65 28 22 45 6e 74 65 |@inputli|ne("Ente|
|00000be0| 72 20 74 68 65 20 5b 64 | 3a 5d 20 5b 70 61 74 68 |r the [d|:] [path|
|00000bf0| 5d 20 5b 66 69 6c 65 6e | 61 6d 65 2e 65 78 74 5d |] [filen|ame.ext]|
|00000c00| 22 2c 20 20 3b 67 65 74 | 20 70 61 74 68 20 61 6e |",  ;get| path an|
|00000c10| 64 ff 01 00 ff 20 20 20 | 20 20 20 20 20 20 20 20 |d....   |        |
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 65 66 61 |        |    defa|
|00000c30| 75 6c 74 2c 23 6e 6f 2c | 23 79 65 73 29 2c 20 20 |ult,#no,|#yes),  |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c50| 20 20 20 20 3b 20 20 66 | 69 6c 65 6e 61 6d 65 2e |    ;  f|ilename.|
|00000c60| ff 01 00 ff ff 01 00 ff | 40 69 66 28 62 75 66 66 |........|@if(buff|
|00000c70| 65 72 20 3d 20 23 4e 2f | 41 21 2c 20 20 20 20 20 |er = #N/|A!,     |
|00000c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ca0| 20 20 20 20 20 20 20 3b | 66 72 61 6d 65 20 62 6f |       ;|frame bo|
|00000cb0| 72 64 65 72 20 6f 72 ff | 01 00 ff 20 20 76 61 72 |rder or.|...  var|
|00000cc0| 72 65 66 20 3a 3d 20 22 | 40 77 72 69 74 65 74 65 |ref := "|@writete|
|00000cd0| 78 74 66 69 6c 65 28 22 | 20 26 20 40 63 68 72 28 |xtfile("| & @chr(|
|00000ce0| 33 34 29 20 26 20 20 20 | 20 20 20 20 20 20 20 20 |34) &   |        |
|00000cf0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 20 69 6e 73 |        |  ;  ins|
|00000d00| 69 64 65 20 74 68 65 ff | 01 00 ff 20 20 20 20 20 |ide the.|...     |
|00000d10| 20 20 20 20 20 20 20 20 | 66 69 6c 6e 61 6d 65 20 |        |filname |
|00000d20| 26 20 40 63 68 72 28 33 | 34 29 20 26 20 22 2c 22 |& @chr(3|4) & ","|
|00000d30| 20 26 20 6c 6f 63 20 26 | 20 22 29 22 2c 20 20 20 | & loc &| ")",   |
|00000d40| 20 20 20 20 20 20 20 20 | 20 20 3b 20 20 77 6f 72 |        |  ;  wor|
|00000d50| 64 20 66 72 61 6d 65 3f | ff 01 00 ff 20 20 76 61 |d frame?|....  va|
|00000d60| 72 72 65 66 20 3a 3d 20 | 22 40 77 72 69 74 65 74 |rref := |"@writet|
|00000d70| 65 78 74 66 69 6c 65 28 | 22 20 26 20 40 63 68 72 |extfile(|" & @chr|
|00000d80| 28 33 34 29 20 26 ff 01 | 00 ff 20 20 20 20 20 20 |(34) &..|..      |
|00000d90| 20 20 20 20 20 20 20 66 | 69 6c 6e 61 6d 65 20 26 |       f|ilname &|
|00000da0| 20 40 63 68 72 28 33 34 | 29 20 26 20 22 2c 62 75 | @chr(34|) & ",bu|
|00000db0| 66 66 65 72 29 22 ff 01 | 00 ff 20 20 20 29 2c ff |ffer)"..|..   ),.|
|00000dc0| 01 00 ff 40 69 66 28 40 | 76 61 72 72 65 66 20 3c |...@if(@|varref <|
|00000dd0| 3e 20 30 2c ff 01 00 ff | 20 20 20 20 40 6c 69 73 |> 0,....|    @lis|
|00000de0| 74 28 40 70 72 6f 6d 70 | 74 28 22 55 4e 41 42 4c |t(@promp|t("UNABL|
|00000df0| 45 20 54 4f 20 4f 50 45 | 4e 20 46 49 4c 45 22 2c |E TO OPE|N FILE",|
|00000e00| 33 30 29 2c 20 40 72 65 | 74 75 72 6e 28 22 55 4e |30), @re|turn("UN|
|00000e10| 41 42 4c 45 20 54 4f 20 | 4f 50 45 4e 20 46 49 4c |ABLE TO |OPEN FIL|
|00000e20| 45 22 29 29 ff 01 00 ff | 20 20 20 29 2c ff 01 00 |E"))....|   ),...|
|00000e30| ff 40 65 72 61 73 65 70 | 72 6f 6d 70 74 2c ff 01 |.@erasep|rompt,..|
|00000e40| 00 ff 40 70 72 6f 6d 70 | 74 28 22 54 65 78 74 66 |..@promp|t("Textf|
|00000e50| 69 6c 65 20 77 72 69 74 | 74 65 6e 20 74 6f 20 64 |ile writ|ten to d|
|00000e60| 69 73 6b 22 2c 33 30 29 | ff 01 00 ff 00 ff ff ff |isk",30)|........|
|00000e70| 03 00 d4 03 08 00 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00000e80| 00 00 00 00 00 00 00 00 | e7 00 c4 03 00 00 01 00 |........|........|
|00000e90| 02 00 00 00 0d 01 0d 00 | 4c 00 55 00 50 00 52 00 |........|L.U.P.R.|
|00000ea0| 04 00 d6 03 02 00 07 20 | 01 00 01 00 42 00 19 00 |....... |....B...|
|00000eb0| 04 00 09 00 45 00 0b 00 | 03 00 08 00 45 00 0b 00 |....E...|....E...|
|00000ec0| 03 00 08 00 46 00 22 00 | 04 00 09 00 eb 00 00 00 |....F.".|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 41 2c 04 |........|A....A,.|
|00000ee0| 02 00 d8 03 18 82 00 00 | 00 01 00 00 02 00 03 00 |........|........|
|00000ef0| 6c 6f 63 00 ff ff ff ff | ff ff ff ff ff ff ff ff |loc.....|........|
|00000f00| 03 00 da 03 18 80 00 00 | 00 01 20 00 02 01 00 00 |........|.. .....|
|00000f10| 00 00 00 00 2c 3e c8 04 | f0 00 c4 03 f6 00 01 00 |....,>..|........|
|00000f20| 06 00 05 00 0d 01 23 4e | 2f 41 21 00 ff ff ff ff |......#N|/A!.....|
|00000f30| 04 00 dc 03 02 00 07 20 | 01 00 01 00 42 00 19 00 |....... |....B...|
|00000f40| 04 00 09 00 45 00 0b 00 | 03 00 08 00 45 00 0b 00 |....E...|....E...|
|00000f50| 03 00 08 00 46 00 22 00 | 04 00 09 00 f4 00 00 00 |....F.".|........|
|00000f60| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 41 3a 04 |........|A....A:.|
|00000f70| 02 00 de 03 18 82 00 00 | 00 01 00 00 02 00 06 00 |........|........|
|00000f80| 62 75 66 66 65 72 00 ff | ff ff ff ff ff ff ff ff |buffer..|........|
|00000f90| 02 00 e0 03 18 82 00 00 | 00 01 00 00 02 00 05 00 |........|........|
|00000fa0| 23 4e 2f 41 21 00 ff ff | ff ff ff ff ff ff ff ff |#N/A!...|........|
|00000fb0| 03 00 e2 03 08 00 00 00 | 00 01 00 00 02 01 1d 00 |........|........|
|00000fc0| f7 00 78 01 f7 00 ec 2b | fb 00 9e 03 01 01 01 00 |..x....+|........|
|00000fd0| 02 00 04 00 0d 01 23 00 | 4b 00 45 00 59 00 0d 00 |......#.|K.E.Y...|
|00000fe0| 04 00 e4 03 02 00 07 00 | 01 00 fe ff 21 00 ff ff |........|....!...|
|00000ff0| 03 00 03 00 23 00 02 00 | 02 00 03 00 45 00 0b 00 |....#...|....E...|
|00001000| 02 00 00 00 24 00 03 00 | 03 00 01 00 ff 00 00 00 |....$...|........|
|00001010| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 41 06 03 |........|A....A..|
|00001020| 02 00 e6 03 18 82 00 00 | 00 01 00 00 02 00 01 00 |........|........|
|00001030| 43 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |C.......|........|
|00001040| 40 00 e8 03 18 82 00 00 | 00 01 00 00 02 00 62 03 |@.......|......b.|
|00001050| 3b 47 65 74 20 74 65 78 | 74 20 66 72 6f 6d 20 61 |;Get tex|t from a|
|00001060| 6e 79 77 68 65 72 65 ff | 01 00 ff 00 01 40 6c 6f |nywhere.|.....@lo|
|00001070| 63 61 6c 00 00 28 69 2c | 20 63 68 2c 20 6c 65 6e |cal..(i,| ch, len|
|00001080| 67 74 68 2c 20 74 65 6d | 70 73 74 72 2c 20 74 65 |gth, tem|pstr, te|
|00001090| 6d 70 73 74 72 32 29 2c | ff 01 00 ff 00 01 40 65 |mpstr2),|......@e|
|000010a0| 72 61 73 65 70 72 6f 6d | 70 74 00 00 2c ff 01 00 |raseprom|pt..,...|
|000010b0| ff 00 01 40 70 72 6f 6d | 70 74 00 00 28 22 00 01 |...@prom|pt..("..|
|000010c0| 4f 4e 45 20 4d 4f 4d 45 | 4e 54 20 50 4c 45 41 53 |ONE MOME|NT PLEAS|
|000010d0| 45 21 00 00 20 20 43 75 | 74 74 69 6e 67 20 73 65 |E!..  Cu|tting se|
|000010e0| 6c 65 63 74 65 64 20 74 | 65 78 74 20 74 6f 20 63 |lected t|ext to c|
|000010f0| 6c 69 70 62 6f 61 72 64 | 22 2c 35 29 2c ff 01 00 |lipboard|",5),...|
|00001100| ff 74 65 6d 70 73 74 72 | 3a 3d 20 00 01 40 74 65 |.tempstr|:= ..@te|
|00001110| 78 74 73 65 6c 65 63 74 | 69 6f 6e 00 00 28 29 2c |xtselect|ion..(),|
|00001120| 09 09 3b 20 47 72 61 62 | 20 74 68 65 20 73 65 6c |..; Grab| the sel|
|00001130| 65 63 74 65 64 20 74 65 | 78 74 ff 01 00 ff 00 01 |ected te|xt......|
|00001140| 40 69 66 00 00 28 00 01 | 40 69 73 65 72 72 00 00 |@if..(..|@iserr..|
|00001150| 28 00 01 40 6c 65 6e 00 | 00 28 74 65 6d 70 73 74 |(..@len.|.(tempst|
|00001160| 72 29 29 2c 09 09 3b 20 | 4d 75 73 74 20 62 65 20 |r)),..; |Must be |
|00001170| 61 20 6e 75 6c 6c 20 73 | 74 72 69 6e 67 ff 01 00 |a null s|tring...|
|00001180| ff 09 00 01 40 6c 69 73 | 74 00 00 28 ff 01 00 ff |....@lis|t..(....|
|00001190| 09 09 00 01 40 65 72 61 | 73 65 70 72 6f 6d 70 74 |....@era|seprompt|
|000011a0| 00 00 2c ff 01 00 ff 09 | 09 00 01 40 70 72 6f 6d |..,.....|...@prom|
|000011b0| 70 74 00 00 28 22 4e 75 | 6c 6c 20 73 74 72 69 6e |pt..("Nu|ll strin|
|000011c0| 67 20 63 75 74 20 74 6f | 20 63 6c 69 70 62 6f 61 |g cut to| clipboa|
|000011d0| 72 64 22 2c 32 36 29 2c | ff 01 00 ff 09 09 43 6c |rd",26),|......Cl|
|000011e0| 69 70 62 6f 61 72 64 20 | 3a 3d 20 22 7b 00 01 4e |ipboard |:= "{..N|
|000011f0| 55 4c 4c 00 00 7d 22 2c | ff 01 00 ff 09 09 00 01 |ULL..}",|........|
|00001200| 40 72 65 74 75 72 6e 00 | 00 28 30 29 ff 01 00 ff |@return.|.(0)....|
|00001210| 09 29 ff 01 00 ff 29 2c | ff 01 00 ff 6c 65 6e 67 |.)....),|....leng|
|00001220| 74 68 20 3a 3d 20 00 01 | 40 6c 65 6e 00 00 28 74 |th := ..|@len..(t|
|00001230| 65 6d 70 73 74 72 29 2c | ff 01 00 ff 69 20 3a 3d |empstr),|....i :=|
|00001240| 20 31 2c ff 01 00 ff 3b | 20 48 61 76 65 20 74 6f | 1,....;| Have to|
|00001250| 20 74 72 61 6e 73 66 6f | 72 6d 20 74 68 65 20 73 | transfo|rm the s|
|00001260| 65 6c 65 63 74 65 64 20 | 74 65 78 74 20 73 6f 20 |elected |text so |
|00001270| 74 68 61 74 20 27 7b 27 | 20 63 68 61 72 61 63 74 |that '{'| charact|
|00001280| 65 72 73 20 61 72 65 20 | 61 63 74 75 61 6c 6c 79 |ers are |actually|
|00001290| ff 01 00 ff 3b 20 73 74 | 6f 72 65 64 20 61 73 20 |....; st|ored as |
|000012a0| 27 7b 7b 7d 27 20 2e 20 | 54 68 69 73 20 77 69 6c |'{{}' . |This wil|
|000012b0| 6c 20 61 6c 6c 6f 77 20 | 74 68 65 20 50 41 53 54 |l allow |the PAST|
|000012c0| 45 20 6d 61 63 72 6f 20 | 74 6f 20 70 65 72 66 6f |E macro |to perfo|
|000012d0| 72 6d 20 74 68 65 6d ff | 01 00 ff 3b 20 63 6f 72 |rm them.|...; cor|
|000012e0| 72 65 63 74 6c 79 20 61 | 6e 64 20 6e 6f 74 20 63 |rectly a|nd not c|
|000012f0| 6f 6e 66 75 73 65 20 74 | 68 65 6d 20 77 69 74 68 |onfuse t|hem with|
|00001300| 20 6b 65 79 20 72 65 66 | 65 72 65 6e 63 65 73 2e | key ref|erences.|
|00001310| ff 01 00 ff 00 01 40 77 | 68 69 6c 65 00 00 28 69 |......@w|hile..(i|
|00001320| 20 3c 3d 20 6c 65 6e 67 | 74 68 2c ff 01 00 ff 09 | <= leng|th,.....|
|00001330| 63 68 20 3a 3d 20 00 01 | 40 6d 69 64 00 00 28 74 |ch := ..|@mid..(t|
|00001340| 65 6d 70 73 74 72 2c 69 | 2c 31 29 20 2c ff 01 00 |empstr,i|,1) ,...|
|00001350| ff 09 00 01 40 69 66 00 | 00 20 28 63 68 20 3d 20 |....@if.|. (ch = |
|00001360| 22 7b 22 2c ff 01 00 ff | 09 09 74 65 6d 70 73 74 |"{",....|..tempst|
|00001370| 72 32 20 3a 3d 20 74 65 | 6d 70 73 74 72 32 20 26 |r2 := te|mpstr2 &|
|00001380| 20 22 7b 7b 7d 22 2c ff | 01 00 ff 09 09 74 65 6d | "{{}",.|.....tem|
|00001390| 70 73 74 72 32 20 3a 3d | 20 74 65 6d 70 73 74 72 |pstr2 :=| tempstr|
|000013a0| 32 20 26 20 63 68 ff 01 | 00 ff 09 29 2c ff 01 00 |2 & ch..|...),...|
|000013b0| ff 09 69 20 3a 3d 20 69 | 20 2b 20 31 ff 01 00 ff |..i := i| + 1....|
|000013c0| 29 2c ff 01 00 ff 43 6c | 69 70 62 6f 61 72 64 20 |),....Cl|ipboard |
|000013d0| 3a 3d 20 74 65 6d 70 73 | 74 72 32 2c ff 01 00 ff |:= temps|tr2,....|
|000013e0| 00 01 40 65 72 61 73 65 | 70 72 6f 6d 70 74 00 00 |..@erase|prompt..|
|000013f0| 2c ff 01 00 ff 00 01 40 | 70 72 6f 6d 70 74 00 00 |,......@|prompt..|
|00001400| 28 22 00 01 4f 4b 20 54 | 4f 20 50 52 4f 43 45 45 |("..OK T|O PROCEE|
|00001410| 44 2c 20 00 00 73 65 6c | 65 63 74 65 64 20 74 65 |D, ..sel|ected te|
|00001420| 78 74 20 63 75 74 20 74 | 6f 20 63 6c 69 70 62 6f |xt cut t|o clipbo|
|00001430| 61 72 64 22 2c 33 31 29 | ff 01 00 ff 00 ff ff ff |ard",31)|........|
|00001440| 03 00 ea 03 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00001450| 00 00 00 00 00 00 00 00 | 44 01 9e 03 4a 01 01 00 |........|D...J...|
|00001460| 02 00 07 00 0d 01 23 56 | 41 4c 55 45 21 00 ff ff |......#V|ALUE!...|
|00001470| 04 00 ec 03 02 00 07 00 | 01 00 02 00 21 00 03 00 |........|....!...|
|00001480| 03 00 05 00 23 00 06 00 | 02 00 03 00 45 00 0b 00 |....#...|....E...|
|00001490| 02 00 04 00 24 00 07 00 | 03 00 05 00 48 01 00 00 |....$...|....H...|
|000014a0| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 41 0e 03 |........|A....A..|
|000014b0| 02 00 ee 03 18 82 00 00 | 00 01 00 00 02 00 01 00 |........|........|
|000014c0| 50 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |P.......|........|
|000014d0| 05 00 f0 03 18 82 00 00 | 00 01 00 00 02 00 33 00 |........|......3.|
|000014e0| 3b 50 75 74 20 22 63 75 | 74 22 20 74 65 78 74 20 |;Put "cu|t" text |
|000014f0| 61 6e 79 77 68 65 72 65 | ff 01 00 ff 00 01 40 70 |anywhere|......@p|
|00001500| 65 72 66 6f 72 6d 6b 65 | 79 73 00 00 28 43 6c 69 |erformke|ys..(Cli|
|00001510| 70 62 6f 61 72 64 29 ff | 01 00 ff 00 ff ff ff ff |pboard).|........|
|00001520| 0c 00 f2 03 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00001530| 01 00 8c 00 cc 5d 42 06 | 5b 01 9e 03 61 01 01 00 |.....]B.|[...a...|
|00001540| 8b 00 8b 00 0d 01 40 73 | 65 74 6d 61 63 72 6f 28 |......@s|etmacro(|
|00001550| 7b 7b 7d 61 6c 74 2d 43 | 7d 2c 4d 61 63 72 6f 66 |{{}alt-C|},Macrof|
|00001560| 75 6e 2e 4d 61 63 72 6f | 73 2e 43 29 2c ff 01 00 |un.Macro|s.C),...|
|00001570| ff 40 73 65 74 6d 61 63 | 72 6f 28 7b 7b 7d 61 6c |.@setmac|ro({{}al|
|00001580| 74 2d 50 7d 2c 4d 61 63 | 72 6f 66 75 6e 2e 4d 61 |t-P},Mac|rofun.Ma|
|00001590| 63 72 6f 73 2e 50 29 2c | ff 01 00 ff 40 70 65 72 |cros.P),|....@per|
|000015a0| 66 6f 72 6d 6b 65 79 73 | 28 22 7b 7b 7d 63 74 72 |formkeys|("{{}ctr|
|000015b0| 6c 2d 64 7d 67 64 3a 6d | 65 6d 6f 72 79 2e 66 77 |l-d}gd:m|emory.fw|
|000015c0| 7b 7b 7d 72 65 74 75 72 | 6e 7d 7b 7b 7d 46 35 7d |{{}retur|n}{{}F5}|
|000015d0| 22 29 ff 01 00 ff 20 00 | ff ff ff ff ff ff ff ff |").... .|........|
|000015e0| 04 00 f4 03 02 00 07 00 | 01 00 06 00 21 00 07 00 |........|....!...|
|000015f0| 03 00 09 00 23 00 0a 00 | 02 00 03 00 45 00 0b 00 |....#...|....E...|
|00001600| 02 00 08 00 24 00 0b 00 | 03 00 09 00 5f 01 00 00 |....$...|...._...|
|00001610| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 ff 00 00 |........|A.......|
|00001620| 02 00 f6 03 18 82 00 00 | 00 01 00 00 02 00 09 00 |........|........|
|00001630| 43 6c 69 70 62 6f 61 72 | 64 00 ff ff ff ff ff ff |Clipboar|d.......|
|00001640| 03 00 f8 03 18 82 00 00 | 00 01 00 00 02 00 16 00 |........|........|
|00001650| 3b 55 73 65 64 20 77 69 | 74 68 20 43 75 74 20 26 |;Used wi|th Cut &|
|00001660| 20 50 61 73 74 65 00 ff | ff ff ff ff ff ff ff ff | Paste..|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+